home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 3 / AGA Experience Volume 3 (1997)(NFA - SAdENESS)[!].iso / software / demos / t-z / zerogravity / install_zerogravity < prev    next >
Encoding:
Text File  |  1996-11-12  |  2.8 KB  |  141 lines
  1. ;
  2. ; $VER: ZERO GRAVITY installer 1.0 (08.11.96)
  3. ;
  4. ; Copyright © 1995 Venus Art
  5. ;
  6.  
  7. ;****************************************************************************
  8.  
  9. (set @default-dest "")
  10.  
  11. (complete 0)
  12.  
  13. (welcome)
  14.  
  15. (message "\nZERO GRAVITY\n\n"
  16.         "Copyright © 1996 Venus Art\n"
  17.     "All Rights Reserved.\n\n"
  18.         "-----====================-----\n"
  19.         "Code:   Noe, B.J.Sebo\n"
  20.         "Music:  Timer\n"
  21.         "Gfx:    Neuromancer\n"
  22.         "3D Gfx: Madbart\n"
  23.         "-----====================-----\n\n"
  24.         "This demo is contribution to Gravity Party"
  25. )
  26.  
  27. (message 
  28.                     "\n COMERCIAL BREAK! \n\n"
  29.     "`-------------' tHe  sECt `-------------'\n"
  30.     "                   \/                 \n"
  31.     "sYSOp: MadBart/aPx Open mon-fri 22.00-13.00\n"
  32.     "cO-sYSOp: vIp/aPx  Open weekend 22.00-10.00\n"
  33.     "                                           \n"
  34.     " node #1  +48 091 879493\n"
  35.     "[---------------------------------------]\n"
  36.     " 2400-19200 bps \n"
  37.     "[---------------------------------------]\n"
  38.     "APPENDIX WHQ · VENUS ART PHQ · OLD BULLS HQ\n"
  39.     "OZONE FREE HQ · ANADUNE PHQ · VENTURE PHQ\n\n"
  40. )
  41.  
  42. ;****************************************************************************
  43.  
  44. (procedure GetZGDisk
  45.   (set ZG_disk
  46.     (askdir
  47.       (prompt "   Select a directory for ZeroGravity drawer:"
  48.           "\nDrawer Will be automagically created for Ya\n"
  49.       )
  50.       (help "\n\n   Complete instalation requires about\n"
  51.             "               3.2 Meg free disk space.")
  52.       (default "Demo:")
  53.     )
  54.   )
  55. )
  56.  
  57. (GetZGDisk)
  58.  
  59. (until (> (getdiskspace ZG_disk) 3200000)
  60.   (
  61.     (message "\n\n\nRequired about 3.2 Meg free disk space\n")
  62.     (GetZGDisk)
  63.   )
  64. )
  65.  
  66. (set ZG_drawer (tackon ZG_disk "ZeroGravity"))
  67. (set ZG_Data   (tackon ZG_disk "ZeroGravity/DATA"))
  68. (set ZG_Compr  (tackon ZG_disk "ZeroGravity/compressors"))
  69.  
  70. (makedir ZG_drawer)
  71. (makedir ZG_Data)
  72. (makedir ZG_Compr)
  73.  
  74. (copyfiles
  75.   (source "VAD_ZeroGravity.exe")
  76.   (dest ZG_drawer)
  77.   (infos)
  78. )
  79.  
  80. (copyfiles
  81.   (source "VAD_ZeroGravity.readme")
  82.   (dest ZG_drawer)
  83.   (infos)
  84. )
  85.  
  86. (copyfiles
  87.   (source "xpkmaster.library")
  88.   (dest ZG_drawer)
  89.   (infos)
  90. )
  91.  
  92. (copyfiles
  93.   (source "xpkRAKE.library")
  94.   (dest ZG_Compr)
  95.   (infos)
  96. )
  97.  
  98. (complete 15)
  99.  
  100. (copyfiles (all)
  101.   (source "ZG_1:DATA/")
  102.   (dest ZG_Data)
  103.   (infos)
  104. )
  105.  
  106. (complete 35)
  107.  
  108. (copyfiles (all)
  109.   (source "ZG_2:")
  110.   (dest ZG_Data)
  111.   (infos)
  112. )
  113.  
  114. (complete 55)
  115.  
  116. (copyfiles (all)
  117.   (source "ZG_3:")
  118.   (dest ZG_Data)
  119.   (infos)
  120. )
  121.  
  122. (complete 75)
  123.  
  124. (run (cat "Join >NIL: "
  125.           (tackon ZG_Data "48.001")
  126.           " \"ZG_4:48.002\" "
  127.           "AS="
  128.           (tackon ZG_Data "48"))
  129. )
  130.  
  131. (run (cat "Delete >NIL: "
  132.           (tackon ZG_Data "48.001"))
  133. )
  134.  
  135. (complete 100)
  136.  
  137. (exit (cat "ZeroGravity The Demo exist in " ZG_drawer " drawer\n\n"
  138.            "To start demo run file VAD_ZeroGravity.exe\n"
  139.            "or click icon!\n")
  140. )
  141.